home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / wheels2.arc / RECTANGL.LIB < prev    next >
Text File  |  1985-06-28  |  767b  |  26 lines
  1. {@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
  2. The purchaser of these procedures and functions may include them in COMPILED
  3. programs freely, but may not sell or give away the source text.
  4.  
  5. }
  6. {@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}
  7. procedure rectangle(X1,Y1,X2,Y2 : integer; Color, FillIt : byte);
  8. var
  9.   row : integer;
  10. begin
  11.   draw(X1,Y1,X2,Y1,Color);
  12.   if FillIt = 1 then
  13.     begin
  14.       for row := Y1+1 to Y2-1 do
  15.         draw(X1,row,X2,row,Color);
  16.     end
  17.   else
  18.     begin
  19.       draw(X2,Y1,X2,Y2,Color);
  20.     end;
  21.   Draw(X2,Y2,X1,Y2,Color);
  22.   if Fillit <> 1 then
  23.     Draw(X1,Y2,X1,Y1,Color);
  24. end;
  25. {@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}
  26.